(nnmbox-create-mbox): Don't assume point-min == 1.

diff --git a/lisp/gnus/nnmbox.el b/lisp/gnus/nnmbox.el
index 43b00a65098fed0870c25c37f234ae6445713059..4c340b2547f5bc809621b13604f4d749d493921e 100644 (file)
--- a/lisp/gnus/nnmbox.el
+++ b/lisp/gnus/nnmbox.el
@@ -523,7 +523,8 @@
     (let ((nnmail-file-coding-system
           (or nnmbox-file-coding-system-for-write
               nnmbox-file-coding-system)))
-      (nnmail-write-region 1 1 nnmbox-mbox-file t 'nomesg))))
+      (nnmail-write-region (point-min) (point-min)
+                          nnmbox-mbox-file t 'nomesg))))
 
 (defun nnmbox-read-mbox ()
   (nnmail-activate 'nnmbox)